Public Class CItem
    Private _lngItemID As Long
    Private _seqItemID As String
    Private _strName As String
    Private _strShortName As String
    Private _strType As String
    Private _strCatID As String
    Private _strForm As String
    Private _chrGrade As Char
    Private _intMfrID As Integer
    Private _intCompanyID As Integer
    Private _strGenName As String
    Private _strItemUnit As String
    Private _strPurPack As String
    Private _intItemsPerPack As Integer
    Private _strPurUnit As String
    Private _blnSellLoose As Boolean
    Private _strSellUnit As String
    Private _intLocationID As Integer
    Private _dblLastPurPrice As Double
    Private _dblPurPrice As Double
    Private _dblSalePrice As Double
    Private _strBarCode As String
    Private _dblMaxDiscount As Double
    Private _dblMargin As Double
    Private _intOpeningStock As Integer
    Private _intMinQty As Integer
    Private _intMaxQty As Integer
    Private _intMinROL As Integer
    Private _intMaxROQ As Integer
    Private _blntaxinclusive As Boolean
    Private _strAct1 As String
    Private _strAct2 As String
    Private _strAct3 As String
    Private _intVendorID1 As Integer
    Private _intVendorID2 As Integer
    Private _intVendorID3 As Integer
    Private _strScheduleType As String
    Private _strRemark As String
    Private _chrStatus As Char
    Private _dblEmergency As Integer
   

    Public Property ItemID() As Long
        Get
            Return _lngItemID
        End Get
        Set(ByVal value As Long)
            _lngItemID = value
        End Set
    End Property
    Public Property SeqItemID() As String
        Get
            Return _seqItemID
        End Get
        Set(ByVal value As String)
            _seqItemID = value
        End Set
    End Property

    Public Property ItemName() As String
        Get
            Return _strName
        End Get
        Set(ByVal value As String)
            _strName = value
        End Set
    End Property
    Public Property ShortName() As String
        Get
            Return _strShortName
        End Get
        Set(ByVal value As String)
            _strShortName = value
        End Set
    End Property
    Public Property ItemType() As String
        Get
            Return _strType
        End Get
        Set(ByVal value As String)
            _strType = value
        End Set
    End Property
    Public Property ItemCategoryID() As String
        Get
            Return _strCatID
        End Get
        Set(ByVal value As String)
            _strCatID = value
        End Set
    End Property
    Public Property ItemForm() As String
        Get
            Return _strForm
        End Get
        Set(ByVal value As String)
            _strForm = value
        End Set
    End Property

    Public Property ItemGrade() As Char
        Get
            Return _chrGrade
        End Get
        Set(ByVal value As Char)
            _chrGrade = value
        End Set
    End Property

    Public Property ManufacturedID() As Integer
        Get
            Return _intMfrID
        End Get
        Set(ByVal value As Integer)
            _intMfrID = value
        End Set
    End Property
    Public Property CompanyId() As Integer
        Get
            Return _intCompanyID
        End Get
        Set(ByVal value As Integer)
            _intCompanyID = CStr(value)
        End Set
    End Property

    Public Property GenericName() As String
        Get
            Return _strGenName
        End Get
        Set(ByVal value As String)
            _strGenName = value
        End Set
    End Property
    Public Property ItemUnit() As String
        Get
            Return _strItemUnit
        End Get
        Set(ByVal value As String)
            _strItemUnit = value
        End Set
    End Property
    Public Property PurPackType() As String
        Get
            Return _strPurPack
        End Get
        Set(ByVal value As String)
            _strPurPack = value
        End Set
    End Property

    Public Property ItemsPerPack() As Integer
        Get
            Return _intItemsPerPack
        End Get
        Set(ByVal value As Integer)
            _intItemsPerPack = value
        End Set
    End Property
    Public Property PurchaseUnit() As String
        Get
            Return _strPurUnit
        End Get
        Set(ByVal value As String)
            _strPurUnit = value
        End Set

    End Property
    Public Property LocationID() As Integer
        Get
            Return _intLocationID
        End Get
        Set(ByVal value As Integer)
            _intLocationID = value
        End Set
    End Property
    Public Property SellInLoose() As Boolean
        Get
            Return _blnSellLoose
        End Get
        Set(ByVal value As Boolean)
            _blnSellLoose = value
        End Set
    End Property

    Public Property SellUnit() As String
        Get
            Return _strSellUnit
        End Get
        Set(ByVal value As String)
            _strSellUnit = value
        End Set

    End Property
    Public Property LastPurchasePrice() As Double
        Get
            Return _dblLastPurPrice
        End Get
        Set(ByVal value As Double)
            _dblLastPurPrice = value
        End Set

    End Property

    Public Property PurchasePrice() As Double
        Get
            Return _dblPurPrice
        End Get
        Set(ByVal value As Double)
            _dblPurPrice = value
        End Set

    End Property
    Public Property SalePrice() As Double
        Get
            Return _dblSalePrice
        End Get
        Set(ByVal value As Double)
            _dblSalePrice = value
        End Set

    End Property

    Public Property BarCode() As String
        Get
            Return _strBarCode
        End Get
        Set(ByVal value As String)
            _strBarCode = value
        End Set

    End Property

    Public Property MaxDiscount() As Double
        Get
            Return _dblMaxDiscount
        End Get
        Set(ByVal value As Double)
            _dblMaxDiscount = value
        End Set

    End Property

    Public Property Margin() As Double
        Get
            Return _dblMargin
        End Get
        Set(ByVal value As Double)
            _dblMargin = value
        End Set

    End Property

    Public Property Emergency() As Integer
        Get
            Return _dblEmergency
        End Get
        Set(ByVal value As Integer)
            _dblEmergency = value
        End Set

    End Property
    Public Property OpeningStock() As Integer
        Get
            Return _intOpeningStock
        End Get
        Set(ByVal value As Integer)
            _intOpeningStock = value
        End Set
    End Property
    Public Property MinQuantity() As Integer
        Get
            Return _intMinQty
        End Get
        Set(ByVal value As Integer)
            _intMinQty = value
        End Set
    End Property
    Public Property MaxQuantity() As Integer
        Get
            Return _intMaxQty
        End Get
        Set(ByVal value As Integer)
            _intMaxQty = value
        End Set
    End Property
    Public Property MinReOrderLevel() As Integer
        Get
            Return _intMinROL
        End Get
        Set(ByVal value As Integer)
            _intMinROL = value
        End Set
    End Property
    Public Property MaxReOrderQty() As Integer
        Get
            Return _intMaxROQ
        End Get
        Set(ByVal value As Integer)
            _intMaxROQ = value
        End Set
    End Property
    Public Property Action1() As String
        Get
            Return _strAct1
        End Get
        Set(ByVal value As String)
            _strAct1 = value
        End Set

    End Property
    Public Property Action2() As String
        Get
            Return _strAct2
        End Get
        Set(ByVal value As String)
            _strAct2 = value
        End Set

    End Property
    Public Property Action3() As String
        Get
            Return _strAct3
        End Get
        Set(ByVal value As String)
            _strAct3 = value
        End Set

    End Property
    Public Property VendorID1() As Integer
        Get
            Return _intVendorID1
        End Get
        Set(ByVal value As Integer)
            _intVendorID1 = value
        End Set
    End Property
    Public Property VendorID2() As Integer
        Get
            Return _intVendorID2
        End Get
        Set(ByVal value As Integer)
            _intVendorID2 = value
        End Set
    End Property
    Public Property VendorID3() As Integer
        Get
            Return _intVendorID3
        End Get
        Set(ByVal value As Integer)
            _intVendorID3 = value
        End Set
    End Property

    Public Property Scheduletype() As String
        Get
            Return _strScheduleType
        End Get
        Set(ByVal value As String)
            _strScheduleType = value
        End Set
    End Property
    Public Property TaxInclusive() As Boolean
        Get
            Return _blntaxinclusive
        End Get
        Set(ByVal value As Boolean)
            _blntaxinclusive = value
        End Set
    End Property


    Public Property Remark() As String
        Get
            Return _strRemark
        End Get
        Set(ByVal value As String)
            _strRemark = CStr(value)
        End Set

    End Property

    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
End Class
